home *** CD-ROM | disk | FTP | other *** search
/ DigitalVision: Cats & Dogs / DigitalVision: Cats & Dogs - Disc 1.iso / pc / s_saver / dv_onlin.exe / dv_onlin.dcr / Internal_26_a - snap to bottom left of refbox.ls < prev    next >
Encoding:
Text File  |  2000-07-28  |  449 b   |  26 lines
  1. property pSprite, pDelay, pMember, pActive
  2.  
  3. on beginSprite me
  4.   pSprite = sprite(me.spriteNum)
  5.   pMember = pSprite.member
  6.   pDelay = the timer
  7.   pActive = 0
  8. end
  9.  
  10. on exitFrame me
  11. end
  12.  
  13. on animswitch me, bool
  14.   if bool = 1 then
  15.     if not pActive then
  16.       pActive = 1
  17.       pSprite.loc = point(sprite(100).left, sprite(100).bottom)
  18.     end if
  19.   else
  20.     if pActive then
  21.       pActive = 0
  22.       pSprite.loc = point(1000, 1000)
  23.     end if
  24.   end if
  25. end
  26.